5 LOCATE0,0,0:CLS:SCREEN6,0,0:CLEAR,,2:DEFGR$(0)=60,126,255,255,255,255,126,60:DEFGR$(1)=65,65,75,127,127,28,8,8:R=16:X=16:CONSOLE16,24:C=-8:FORI=1TO3:PSET(20+I,14)GR$(1):NEXT:FORI=1TO39:A$=A$+GR$(0):NEXT:E=2
10 R=R+(RND*2-1)*(R>3)*(R<37):LOCATE0,24:PRINTA$:LOCATER,23:PRINT"   ":S=STICK(0):X=X+(S=7ANDX>0)-(S=3ANDX<39):IFSCREEN(X,16)<>32THENPLAY"DO":E=E-1:IFE<0THEN5ELSEPSET(21+E,14)" ":GOTO10ELSEPSET(X,16)GR$(1),4:C=C+1:LOCATE15,14:PRINT"SCORE "C:COLOR1:GOTO10